
Imports Envios.Modulo


Public Class Cargas


    Private Sub tsbremite_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbremite.Click
        Dim alta As New Altas
        from = "REMITENTE"
        alta.Show()

    End Sub

    Private Sub tsbdesti_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbdesti.Click
        Dim alta As New Altas
        from = "DESTINATARIO"
        alta.Show()

    End Sub
End Class
